Hare_Female Class Reference

Class for female hares. More...

#include <hare_all.h>

Inheritance diagram for Hare_Female:

Public Member Functions
virtual void	BeginStep (void)
	Female BeginStep. More...
virtual void	Step (void)
	Female Step. More...
virtual void	EndStep (void)
	Female EndStep. More...
	Hare_Female (int p_x, int p_y, Landscape *p_L, THare_Population_Manager *p_PPM, double p_weight, int a_age, int a_Ref)
	Female Constructor. More...
void	ReInit (struct_Hare a_data)
	Female object reinitiation. More...
void	Init (double p_weight, int a_age, int a_Ref)
	Object initiation. More...
virtual	~Hare_Female ()
	Female Destructor. More...
void	dumpEnergy ()
	Used to record energetic status. More...
void	SetSterile ()
	Female is sterile. More...
virtual void	ON_Dead ()
	The female is dead. More...
bool	UpdateYoung (THare *a_old, THare *a_new)
	Swap a young list pointer. More...
void	AddYoung (THare *a_new)
	Add a leveret to the list of kids. More...
void	ON_YoungKilled (THare *a_young)
	A leveret has been killed. More...
void	ON_RemoveYoung (THare *a_young)
	A leveret has matured. More...
void	AllYoungKilled ()
	Last leveret predated. More...
void	AllYoungMatured ()
	No more young to look after. More...
bool	ON_AreYouMyMum (THare *a_young)
	Debug function. More...
bool	SanityCheckYoungList ()
	Debug function. More...
Public Member Functions inherited from Hare_Juvenile
	Hare_Juvenile (int p_x, int p_y, Landscape *p_L, THare_Population_Manager *p_PPM, double p_weight)
	Constructor for the juvenile hare object. More...
void	ReInit (struct_Hare a_data)
	Juvenile object reinitiation. More...
void	Init (double p_weight)
	Object initiation. More...
virtual	~Hare_Juvenile ()
	Destructor for the juvenile hare object. More...
Public Member Functions inherited from THare
	THare (int p_x, int p_y, Landscape *p_L, THare_Population_Manager *p_PPM)
	Constructor. More...
void	THareInit (int p_x, int p_y, THare_Population_Manager *p_PPM)
	Object Initiation. More...
virtual	~THare ()
	Destructor. More...
double	GetWeight ()
double	GetTotalWeight ()
	Provide the wet weight of the hare. More...
int	GetAge ()
void	ON_MumDead (Hare_Female *a_Mum)
	Inform Mum that we are dead. More...
void	SetMum (Hare_Female *)
	Set the mother pointer. Reimplemented in Hare_Infant. More...
Hare_Female *	GetMum ()
	Get the mother pointer. More...
double	GetRMR ()
	Get todays RMR. More...
int	GetRefNum ()
	Get the refnum for this hare. More...
void	loadVegPalatability (void)
	Loads static member m_vegPalatability with data. More...
Public Member Functions inherited from TAnimal
unsigned	SupplyFarmOwnerRef ()
AnimalPosition	SupplyPosition ()
APoint	SupplyPoint ()
int	SupplyPolygonRef ()
int	Supply_m_Location_x ()
int	Supply_m_Location_y ()
virtual void	KillThis ()
virtual void	CopyMyself ()
void	SetX (int a_x)
void	SetY (int a_y)
	TAnimal (int x, int y, Landscape *L)
virtual void	ReinitialiseObject (int x, int y, Landscape *L)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual int	WhatState ()
virtual void	Dying ()
void	CheckManagement (void)
void	CheckManagementXY (int x, int y)
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo ()
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone ()
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
virtual void	ReinitialiseObject ()
	Used to re-use an object - must be implemented in descendent classes. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()
	The destructor for TALMaSSObject. More...
void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...

Protected Member Functions
void	UpdateOestrous ()
	Update oestrous counter. More...
void	UpdateGestation ()
	Update gestation counter. More...
void	GiveBirth ()
	Produce a litter. More...
APoint	PlaceYoung ()
	Find somewhere nice for the babies to hide. More...
void	DoLactation ()
	Lactation. More...
void	Mating ()
	Mate. More...
TTypeOfHareState	st_Dispersal ()
	Female Dispersal. More...
TTypeOfHareState	st_Developing ()
	Female Developing. More...
TTypeOfHareState	st_Foraging ()
	Female Foraging. More...
TTypeOfHareState	st_Resting ()
	Resting. More...
TTypeOfHareState	st_ReproBehaviour ()
	Reproductive behaviour control. More...
virtual void	InternalPesticideHandlingAndResponse ()
	Handles internal effects of pesticide exposure. If any effects are needed this method must be re-implemented by descendent classes. More...
virtual void	GeneralEndocrineDisruptor (double a_pesticide_dose)
	Handles internal effects of endocrine distrupter pesticide exposure for female. More...
virtual void	GeneralOrganoPhosphate (double a_pesticide_dose)
	Handles internal effects of organophosphate pesticide exposure for female. More...
Protected Member Functions inherited from Hare_Juvenile
TTypeOfHareState	st_Developing ()
	The development code for Hare_Juvenile. More...
TTypeOfHareState	st_Foraging ()
	Juvenile foraging. More...
void	st_NextStage ()
	Maturation to Hare_Male or Hare_Female. More...
TTypeOfHareState	st_Resting ()
	Juvenile Resting. More...
bool	ShouldMature ()
	Test for maturation. More...
virtual bool	WasPredated ()
	Test for mortality. More...
Protected Member Functions inherited from THare
bool	Run (int a_dist, int a_direction)
	Run a distance in a direction. More...
void	EnergyBalance (TTypeOfActivity a_activity, int dist)
	Adjust energy balance for an activity. More...
void	TimeBudget (TTypeOfActivity a_activity, int dist)
	Adjust time budger for an activity. More...
void	st_Dying ()
	Tidy up before removing the object on death. More...
virtual void	Running (int a_max_dist)
	Run. More...
void	Walking (int a_dist, int a_direction)
	Walking. More...
double	Forage (int &time)
	Foraging. More...
double	ForageP (int &time)
	Foraging but also incorporating pesticide exposure. More...
double	ForageSquare (int a_x, int a_y)
	Forage from an area. More...
double	ForageSquareP (int a_x, int a_y, double *a_pestexposure)
	Forage from an area and resturn pesticide exposure as well as food. More...
int	GetPegDistance ()
	Get peg distance. More...
int	GetPegPull ()
	Get attractive force of peg. More...
int	GetPegDirection ()
	Get direction of peg. More...
void	MovePeg ()
	Move the peg according to attraction forces. More...
bool	OnFarmEvent (FarmToDo event)
	Do we require a response to a farm event. More...
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Protected Attributes
int	m_NoYoung
	State variable - current litter size. More...
int	m_litter_no
	State variable - current litter number. More...
bool	m_sterile
	State variable - is/not sterile. More...
int	m_OestrousCounter
	State variable - Days in oestrous. More...
int	m_GestationCounter
	State variable - Days in gestation. More...
double	m_LeveretMaterial
	State variable - Mass of foetal material. More...
TTypeOfActivity	m_reproActivity
	State variable - current reproductive state. More...
TListOfHares	m_MyYoung
	Pointer to litter. More...
Protected Attributes inherited from THare
TTypeOfHareState	m_CurrentHState
	Defines the current activity. More...
int	m_Age
	State variale - hare age. More...
Hare_Object	m_Type
	State variale - the type of hare. More...
double	m_weight
	State variale - hare weight g. More...
double	m_old_weight
	State variale - last hare weight. More...
Hare_Female *	m_MyMum
	Pointer to the hare's mum. More...
THare_Population_Manager *	m_OurPopulationManager
	Pointer to the hare population manager. More...
int	m_Lifespan
	Physiolocal lifespan, assuming nothing else kills the hare (unlikely to reach this age) More...
int	m_ActivityTime
	Minutes of potential activity time per day. More...
int	m_StarvationDays
	State variable - the number of consecutive days in negative energy balance. More...
double	m_fatReserve
	State variable - the energy reserve of the hare. More...
double	m_TodaysEnergy
	State variable - the amount of energy available today, can be in deficit. More...
double	m_EnergyMax
	State variable - the amount of energy it is possible to eat as a multiplyer or RMR. More...
double	m_KJRunning
	KJ/m cost of running per kg hare. More...
double	m_KJWalking
	KJ/m cost of walking per kg hare. More...
double	m_KJForaging
	KJ/m cost of foraging per kg hare. More...
double	m_SpeedRunning
	m/min speed of running per kg hare More...
double	m_SpeedWalking
	m/min speed of walking per kg hare More...
double	m_foragingenergy
	Energy obtained from foraging/feeding. More...
int	m_peg_x
	peg x-coordinate More...
int	m_peg_y
	peg y-coordinate More...
int	m_RefNum
	Unique hare reference number, also functions as sex flag. More...
int	m_experiencedDensity
	State variable used in alternative density-dependent configurations. More...
int	m_lastYearsDensity
	State variable used in alternative density-dependent configurations. More...
int	m_ddindex
	State variable used in alternative density-dependent configurations. More...
int	m_expDensity [365]
	State variable used in alternative density-dependent configurations. More...
int	m_DensitySum
	State variable used in alternative density-dependent configurations. More...
bool	m_IamSick
	flag for sickness - used in conjunction with disease configurations More...
double	m_pesticide_burden
	State variable used to hold the current body-burden of pesticide. More...
double	m_pesticidedegradationrate
	State variable used to hold the daily degredation rate of the pesticide in the body. More...
bool	m_pesticideInfluenced1
	Flag to indicate pesticide effects (e.g. can be used for endocrine distruptors with delayed effects until birth). More...
Protected Attributes inherited from TAnimal
int	m_Location_x
int	m_Location_y
Landscape *	m_OurLandscape
Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...
bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Additional Inherited Members
Static Public Attributes inherited from THare
static double *	m_vegPalatability = NULL
	Will hold and array of palatability for hare for each tov type. Most are 1, but unpalatable vegetation can be specified here. More...

Detailed Description

Class for female hares.

Constructor & Destructor Documentation

Hare_Female()

Hare_Female::Hare_Female	(	int	p_x,
		int	p_y,
		Landscape *	p_L,
		THare_Population_Manager *	p_PPM,
		double	p_weight,
		int	a_age,
		int	a_Ref
	)

Female Constructor.

                                                                                                                                  : Hare_Juvenile(p_x, p_y, p_L, p_PPM, p_weight)
{
    Init(p_weight,a_age,a_Ref);
}

References Init().

~Hare_Female()

Hare_Female::~Hare_Female ( )

virtual

Female Destructor.

{
    //Nothing to do
}

Member Function Documentation

AddYoung()

void Hare_Female::AddYoung

(

THare *

a_new

)

Add a leveret to the list of kids.

Adds a new young to the mothers list

{
  m_MyYoung.push_back(a_new);
}

References m_MyYoung.

Referenced by THare_Population_Manager::CreateObjects().

AllYoungKilled()

void Hare_Female::AllYoungKilled

(

)

Last leveret predated.

Behavioural switch to determine what to do on death of all young. Depends on what we were doing before.

{
  switch (m_reproActivity) {
    case activity_oestrouscycle:
      break;
    case activity_inoestrous:
      break;
    case activity_gestation:
      break;
    case activity_givebirth:
    case activity_lactation:
      m_reproActivity=activity_oestrouscycle;
      m_OestrousCounter=cfg_DaysToOestrous.value();
      break;
    default:
      m_OurLandscape->Warn("Hare_Female::AllYoungKilled unknown activity"
                                                                        ,NULL);
      exit(1);
  }
}

References activity_gestation, activity_givebirth, activity_inoestrous, activity_lactation, activity_oestrouscycle, cfg_DaysToOestrous, m_OestrousCounter, TAnimal::m_OurLandscape, m_reproActivity, CfgInt::value(), and Landscape::Warn().

Referenced by ON_YoungKilled().

AllYoungMatured()

void Hare_Female::AllYoungMatured

(

)

No more young to look after.

{
    m_NoYoung=0;
  switch (m_reproActivity) {
    case activity_oestrouscycle:
      break;
    case activity_inoestrous:
      break;
    case activity_gestation:
      break;
    case activity_givebirth:
      break;
    case activity_lactation:
      m_reproActivity=activity_oestrouscycle;
      m_OestrousCounter=cfg_DaysToOestrous.value();
      break;
    default:
      m_OurLandscape->Warn("Hare_Female::AllYoungMatured unknown activity",NULL);
      exit(1);
  }
}

References activity_gestation, activity_givebirth, activity_inoestrous, activity_lactation, activity_oestrouscycle, cfg_DaysToOestrous, m_NoYoung, m_OestrousCounter, TAnimal::m_OurLandscape, m_reproActivity, CfgInt::value(), and Landscape::Warn().

Referenced by ON_RemoveYoung().

BeginStep()

void Hare_Female::BeginStep ( void  )

virtual

Female BeginStep.

Reimplemented from Hare_Juvenile.

{
    m_ActivityTime=1440; // Start the day
#ifdef __SIZERELATEDDEATH
    if ((m_OurLandscape->SupplyDayInYear()>0) && ((m_OurLandscape->SupplyDayInYear()<90))) {
        if (m_Age>365) {
            if (m_weight<cfg_hare_minimum_breeding_weight.value()) {
                ON_Dead();
                m_StepDone=true; // We need to skip the step code, we are dead
                return;
            }
        }
    }
#endif
#ifdef __DISEASEDDMORTALITY
    if (m_IamSick) {
        ON_Dead();
        m_StepDone=true; // We need to skip the step code, we are dead
        return;
    }
#endif
    if (WasPredated()) {
        ON_Dead();
        m_StepDone=true; // We need to skip the step code, we are dead
        return;
    }
    // Age physiolocally
    if (++m_Age > m_Lifespan) {
        ON_Dead();
        m_StepDone=true; // We need to skip the step code, we are dead
    return;
    }
    m_KJWalking=m_OurPopulationManager->GetKJperM((int) floor(0.5+m_weight));
    m_KJRunning=m_KJWalking*2;
    m_KJForaging=m_KJWalking;
    if (g_rand_uni()<cfg_hare_proximity_alert.value()) {
        Running(cfg_hare_escape_dist.value());
    }
    // Checking code ***CJT***
    m_foragingenergy=0;
#ifdef __DISEASEDDM
    m_experiencedDensity+=m_OurPopulationManager->GetTotalDensity(m_Location_x, m_Location_y);
    if (m_OurLandscape->SupplyDayInYear()==0) {
        m_lastYearsDensity=m_experiencedDensity/365;
        m_experiencedDensity=0;
        if (random(cfg_HareFemaleSicknessDensityDepValue.value())<m_lastYearsDensity) {
            m_IamSick=true;
        }
        else m_IamSick=false;
    }
#endif
#ifdef __DISEASEDDM2
    m_experiencedDensity+=m_OurPopulationManager->GetTotalDensity(m_Location_x, m_Location_y);
    if (m_OurLandscape->SupplyDayInYear()==0) {
        m_lastYearsDensity=m_experiencedDensity/365;
        m_experiencedDensity=0;
    }
#endif
#ifdef __DISEASEDDM3
    m_ddindex++;
    if (m_ddindex==365) {
        m_ddindex=0;
    }
    m_DensitySum-=m_expDensity[m_ddindex];
    m_expDensity[m_ddindex]=m_OurPopulationManager->GetTotalDensity(m_Location_x, m_Location_y);
    m_DensitySum+=m_expDensity[m_ddindex];
    m_lastYearsDensity= int(m_DensitySum * (1.0/365.0));
#endif
    // Set the maximum possible energy intake
    m_EnergyMax = GetRMR()*cfg_MaxEnergyIntakeScaler.value();
    CheckManagement();
}

References cfg_hare_escape_dist, cfg_hare_minimum_breeding_weight, cfg_hare_proximity_alert, cfg_HareFemaleSicknessDensityDepValue, cfg_MaxEnergyIntakeScaler, TAnimal::CheckManagement(), g_rand_uni, THare_Population_Manager::GetKJperM(), THare::GetRMR(), THare_Population_Manager::GetTotalDensity(), THare::m_ActivityTime, THare::m_Age, THare::m_ddindex, THare::m_DensitySum, THare::m_EnergyMax, THare::m_expDensity, THare::m_experiencedDensity, THare::m_foragingenergy, THare::m_IamSick, THare::m_KJForaging, THare::m_KJRunning, THare::m_KJWalking, THare::m_lastYearsDensity, THare::m_Lifespan, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, THare::m_OurPopulationManager, TALMaSSObject::m_StepDone, THare::m_weight, ON_Dead(), random(), THare::Running(), Landscape::SupplyDayInYear(), CfgInt::value(), CfgFloat::value(), and Hare_Juvenile::WasPredated().

DoLactation()

void Hare_Female::DoLactation ( )

protected

Lactation.

Feed the young milk.

Here the female uses energy and converts it to milk, which is shared equally between her leverets Assumptions:
a) There is a maximum amount of milk possible to feed to a leveret
b) Equal distribution of inadequate resources

NB the currency is KJ energy not milk per se

    {
  double sz= (double) m_MyYoung.size();
  if (m_fatReserve>0) { // Zero is used here because it is possible to use all fat reserves on this
    double en=63.7*m_fatReserve;
    // en is the energy available for milk
    double rmr=m_MyYoung[0]->GetRMR();
    double maxMilk= (rmr+m_OurPopulationManager->GetMaxDailyGrowthEnergy(m_MyYoung[0]->GetAge())) * sz * (1-g_PropSolidFood[m_MyYoung[0]->GetAge()]);
    if (en>maxMilk){
      en=maxMilk;
    }
#ifdef __NOSTARVE
    en=maxMilk;
#endif
    // remove the energy used
    m_fatReserve-=en* (1.0/63.7); // 63.7 is the cost of 1g dw fat
    // KJ per young
    en/=(double) sz;
    vector<THare*>::iterator current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
      dynamic_cast<Hare_Infant*>(*current)->ON_BeingFed(en);
      current++;
    }
  }
}

References g_PropSolidFood, THare::GetAge(), THare_Population_Manager::GetMaxDailyGrowthEnergy(), THare::m_fatReserve, m_MyYoung, THare::m_OurPopulationManager, and Hare_Infant::ON_BeingFed().

Referenced by GiveBirth(), and st_ReproBehaviour().

dumpEnergy()

void Hare_Female::dumpEnergy

(

)

Used to record energetic status.

                             {
   FILE* fp=fopen("EnergyCheck.txt","a");
   int wt=int(floor(0.5+m_weight));
   int fe=int(floor(0.5+m_foragingenergy));
   int fr=int(floor(0.5+m_fatReserve));
   int te=int(floor(0.5+m_TodaysEnergy));
   fprintf (fp,"%d\t%d\t%d\t%d\t%d\n",(int) m_OurLandscape->SupplyDayInYear(), wt, fe, fr, te);
   fclose(fp);
}

References THare::m_fatReserve, THare::m_foragingenergy, TAnimal::m_OurLandscape, THare::m_TodaysEnergy, THare::m_weight, and Landscape::SupplyDayInYear().

Referenced by st_Foraging().

EndStep()

void Hare_Female::EndStep ( void  )

virtual

Female EndStep.

Reimplemented from Hare_Juvenile.

                          {
    MovePeg();
    if (cfg_hare_pesticideresponse_on.value()) InternalPesticideHandlingAndResponse();
}

References cfg_hare_pesticideresponse_on, InternalPesticideHandlingAndResponse(), THare::MovePeg(), and CfgBool::value().

GeneralEndocrineDisruptor()

void Hare_Female::GeneralEndocrineDisruptor ( double  a_pesticide_dose )

protectedvirtual

Handles internal effects of endocrine distrupter pesticide exposure for female.

Reimplemented from THare.

{
    // May also wish to specify certain gestation days for the effects here
    if (m_GestationCounter > 0)
    {
        m_pesticideInfluenced1 = true;
    }
}

References m_GestationCounter, and THare::m_pesticideInfluenced1.

Referenced by InternalPesticideHandlingAndResponse().

GeneralOrganoPhosphate()

void Hare_Female::GeneralOrganoPhosphate ( double  a_pesticide_dose )

protectedvirtual

Handles internal effects of organophosphate pesticide exposure for female.

Reimplemented from THare.

{
    if (g_rand_uni() > l_pest_daily_mort.value()) return;
    m_CurrentHState = tohs_Dying;
    m_StepDone = true;
    return;
}

References g_rand_uni, l_pest_daily_mort, THare::m_CurrentHState, TALMaSSObject::m_StepDone, tohs_Dying, and CfgFloat::value().

Referenced by InternalPesticideHandlingAndResponse().

GiveBirth()

void Hare_Female::GiveBirth ( )

protected

Produce a litter.

Give birth to Hare_Infants.

Lets assume we do this a deterministic way. So the number of leverets depends on the mass of leveret material collected.
The size is determined by the mass divided by the number possible such that size stays in the range 95-125g
Litter size limited to max 4

Once they are born they need to be placed somewhere. This should be somewhere where the vegetation is not too sparse

{
  double leveret_size;
  int NoLeverets=0;
   if (m_pesticideInfluenced1)
   {
        // Could do lots now, e.g. take a test to determine if we reduce repro or abandon it.   
        // The option below reduces the energy for leveret development by 0-100%
        //m_LeveretMaterial *= g_rand_uni();
       // Here we take it all
       m_LeveretMaterial = 0;
        m_pesticideInfluenced1 = false;
   }
 
   // THIS CODE IS FOR DOING IT ON THE BASIS OF ENERGY
  double mi=cfg_minLeveretBirthWeight.value();
  if (m_LeveretMaterial/4.0 > mi) NoLeverets=4;
    else if (m_LeveretMaterial/3.0 > mi) NoLeverets=3;
      else if (m_LeveretMaterial/2.0 > mi) NoLeverets=2;
        else if (m_LeveretMaterial > mi) NoLeverets=1;
  if (NoLeverets==0) {
    // Can't produce a leveret - abort the pregnancy
    m_LeveretMaterial=0;
    m_reproActivity=activity_oestrouscycle;
    m_OestrousCounter=cfg_DaysToOestrous.value();
    return;
  }
  leveret_size=m_LeveretMaterial/(double)NoLeverets;
  if (leveret_size>cfg_maxLeveretBirthWeight.value())
  {
      leveret_size=cfg_maxLeveretBirthWeight.value();
  }
  // END ENERGETIC
  /*
  // THIS IS THE ALTERNATIVE 1 _ GET THE NUMBER BASED ON WHETHER IT IS FIRST, 2ND, 3RD etc..
  NoLeverets=m_OurPopulationManager->GetLitterSize(m_litter_no++);
  if (NoLeverets<1) {
    AllYoungKilled();
    return;
  }
  leveret_size=cfg_HareStartWeight.value(); // NB No variability in start weight
  */
  // END ALTERNATE 1
  /* ALTERNATE 2 - Here we adjust for the weight of the female
 
  if (m_weight > cfg_hare_minimum_breeding_weight.value() ) {
    NoLeverets=m_OurPopulationManager->GetLitterSize(m_litter_no++);
  }
  else {
  }
  if (NoLeverets<1) {
    AllYoungKilled();
    return;
  }
  leveret_size=cfg_HareStartWeight.value(); // NB No variability in start weight
  */
// END ALTERNATE 2
 
 
  // Create the data required
  struct_Hare* sp;
  sp = new struct_Hare;
  sp->HM = m_OurPopulationManager;
  sp->L = m_OurLandscape;
  sp->Mum=this;
  sp->weight=leveret_size;
  APoint pt = PlaceYoung();
  sp->x = pt.m_x;
  sp->y = pt.m_y;
  // Make the leverets
  m_OurPopulationManager->CreateObjects(0,this,NULL,sp,NoLeverets);
  delete sp;
  m_litter_no++;
  m_reproActivity=activity_lactation;
#ifdef __saveLitterInfo
    //Temporary Output Start
    FILE* fp=fopen("LitterProduction.txt","a");
    int month=m_OurLandscape->SupplyMonth();
    fprintf(fp,"%i\t%i\t%f\t%d\n",month, NoLeverets, leveret_size, m_litter_no);
    fclose(fp);
    // End
#endif
    // Feed them today
    DoLactation();
}

References activity_lactation, activity_oestrouscycle, cfg_DaysToOestrous, cfg_maxLeveretBirthWeight, cfg_minLeveretBirthWeight, THare_Population_Manager::CreateObjects(), DoLactation(), struct_Hare::HM, struct_Hare::L, m_LeveretMaterial, m_litter_no, m_OestrousCounter, TAnimal::m_OurLandscape, THare::m_OurPopulationManager, THare::m_pesticideInfluenced1, m_reproActivity, APoint::m_x, APoint::m_y, struct_Hare::Mum, PlaceYoung(), Landscape::SupplyMonth(), CfgInt::value(), CfgFloat::value(), struct_Hare::weight, struct_Hare::x, and struct_Hare::y.

Referenced by st_ReproBehaviour().

Init()

void Hare_Female::Init	(	double	p_weight,
		int	a_age,
		int	a_Ref
	)

Object initiation.

{
    
    m_Type = hob_Female;
    m_fatReserve = p_weight * 3.8*0.04; // To get 4% of WW+ingesta
    m_sterile = false;
    m_weight = p_weight;
    m_old_weight = p_weight;
    m_Age = a_age;
    m_OestrousCounter = 0;
    m_GestationCounter = 0;
    m_LeveretMaterial = 0;
    m_reproActivity = activity_oestrouscycle;
    m_litter_no = 0;
    m_KJWalking = m_OurPopulationManager->GetKJperM((int)floor(0.5 + m_weight));
    m_KJRunning = m_KJWalking * 2;
    m_KJForaging = m_KJWalking;
    m_IamSick = false;
    m_RefNum = a_Ref;
}

References activity_oestrouscycle, THare_Population_Manager::GetKJperM(), hob_Female, THare::m_Age, THare::m_fatReserve, m_GestationCounter, THare::m_IamSick, THare::m_KJForaging, THare::m_KJRunning, THare::m_KJWalking, m_LeveretMaterial, m_litter_no, m_OestrousCounter, THare::m_old_weight, THare::m_OurPopulationManager, THare::m_RefNum, m_reproActivity, m_sterile, THare::m_Type, and THare::m_weight.

Referenced by Hare_Female(), and ReInit().

InternalPesticideHandlingAndResponse()

void Hare_Female::InternalPesticideHandlingAndResponse ( )

protectedvirtual

Handles internal effects of pesticide exposure. If any effects are needed this method must be re-implemented by descendent classes.

This method is re-implemented ffrom THare for any class which has pesticide response behaviour. If the body burden exceeds the trigger then call pesticide-specific actions by dose

Reimplemented from THare.

{
    TTypesOfPesticide tp = m_OurLandscape->SupplyPesticideType();
    double pesticideInternalConc = m_pesticide_burden / m_weight;
 
    if (m_pesticide_burden > 0) m_OurPopulationManager->BodyBurdenOut(m_OurLandscape->SupplyYearNumber(), m_OurLandscape->SupplyDayInYear(), m_pesticide_burden, pesticideInternalConc);
 
    if (pesticideInternalConc > cfg_HarePesticideAccumulationThreshold.value())
    {
        switch (tp)
        {
        case ttop_NoPesticide:
            break;
        case ttop_ReproductiveEffects:
            GeneralEndocrineDisruptor(pesticideInternalConc); // Calls the EndocrineDisruptor action code
            break;
        case ttop_AcuteEffects:
            GeneralOrganoPhosphate(pesticideInternalConc); // Calls the GeneralOrganophosphate action code
            break;
        default:
            exit(47);
        }
    }
    m_pesticide_burden *= m_pesticidedegradationrate; // Does nothing by default except internal degredation of the pesticide
}

References THare_Population_Manager::BodyBurdenOut(), cfg_HarePesticideAccumulationThreshold, GeneralEndocrineDisruptor(), GeneralOrganoPhosphate(), TAnimal::m_OurLandscape, THare::m_OurPopulationManager, THare::m_pesticide_burden, THare::m_pesticidedegradationrate, THare::m_weight, Landscape::SupplyDayInYear(), Landscape::SupplyPesticideType(), Landscape::SupplyYearNumber(), ttop_AcuteEffects, ttop_NoPesticide, ttop_ReproductiveEffects, and CfgFloat::value().

Referenced by EndStep().

Mating()

void Hare_Female::Mating ( )

protected

Mate.

{
    // Sigh, need to develop code to determine if a male is close - how does
    // she choose a mate?? TODO if we ever consider males limiting or need population genetics
    // This is complicated by multiple matings in real life too.
    //
    // Assuming she has a mate and is mated
    m_GestationCounter=cfg_hare_DaysToGestation.value();
    m_reproActivity=activity_gestation;
    m_LeveretMaterial=0;
}

References activity_gestation, cfg_hare_DaysToGestation, m_GestationCounter, m_LeveretMaterial, m_reproActivity, and CfgInt::value().

Referenced by st_ReproBehaviour().

ON_AreYouMyMum()

bool Hare_Female::ON_AreYouMyMum

(

THare *

a_young

)

Debug function.

Debug code for checking young lists.

{
  m_NoYoung= (int) m_MyYoung.size();
  vector<THare*>::iterator current = m_MyYoung.begin();
  while (current != m_MyYoung.end())
  {
    if (*current == a_young)
    {
      return true;
    }
    current++;
  }
  return false;
}

References m_MyYoung, and m_NoYoung.

ON_Dead()

void Hare_Female::ON_Dead ( void  )

virtual

The female is dead.

Do the housekeeping needed for object destruction

Reimplemented from Hare_Juvenile.

{
   // if she has young she must tell them she is dead
   vector<THare*>::iterator current = m_MyYoung.begin();
   while (current != m_MyYoung.end())
   {
     (*current)->ON_MumDead(this);
     current++;
   }
   m_MyYoung.clear(); // Needed because of the potential for object re-use
   m_CurrentHState=tohs_Dying;
   m_CurrentStateNo=-1;
   m_StepDone=true;
}

References THare::m_CurrentHState, TALMaSSObject::m_CurrentStateNo, m_MyYoung, TALMaSSObject::m_StepDone, and tohs_Dying.

Referenced by BeginStep(), THare_Population_Manager::Hunting(), THare_Population_Manager::HuntingGrid(), and Step().

ON_RemoveYoung()

void Hare_Female::ON_RemoveYoung

(

THare *

a_young

)

A leveret has matured.

This functions simply sorts through the m_Young vector and removes the matured young.
This is identical to ON_YoungKilled, but differs in the result of removing the last one.

  {
  m_NoYoung= (int) m_MyYoung.size();
  vector<THare*>::iterator current = m_MyYoung.begin();
  while (current != m_MyYoung.end())
  {
    if (*current == a_young)
    {
      m_MyYoung.erase(current);
      if (m_MyYoung.size()==0) {
        // All young grown up do something appropriate
        AllYoungMatured();
      }
      m_NoYoung= (int) m_MyYoung.size();
      return;
    }
    current++;
  }
  // Should never get here...raise an error and duck out of the program.
  //
  m_OurLandscape->Warn("Hare_Female::ON_RemoveYoung - unknown young",NULL);
  exit(1);
}

References AllYoungMatured(), m_MyYoung, m_NoYoung, TAnimal::m_OurLandscape, and Landscape::Warn().

Referenced by Hare_Young::st_NextStage().

ON_YoungKilled()

void Hare_Female::ON_YoungKilled

(

THare *

a_young

)

A leveret has been killed.

This functions sorts through the m_Young vector and removes the dead young

{
  m_NoYoung= (int) m_MyYoung.size();
  vector<THare*>::iterator current = m_MyYoung.begin();
  while (current != m_MyYoung.end())
  {
    if (*current == a_young)
    {
      m_MyYoung.erase(current);
      if (m_MyYoung.size()==0) {
        // All young eaten do something appropriate
        AllYoungKilled();
      }
      return;
    }
    current++;
  }
  // Should never get here...raise an error and duck out of the program.
  //
  m_OurLandscape->Warn("Hare_Female::ON_YoungKilled - unknown young",NULL);
  exit(1);
}

References AllYoungKilled(), m_MyYoung, m_NoYoung, TAnimal::m_OurLandscape, and Landscape::Warn().

Referenced by THare::st_Dying().

PlaceYoung()

APoint Hare_Female::PlaceYoung ( )

protected

Find somewhere nice for the babies to hide.

Find a place to put the young.

{
    APoint pt;
    int loop = 0;
    while (loop++ < 500)
    {
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x - loop, m_Location_y - loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x, m_Location_y - loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x + loop, m_Location_y - loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x - loop, m_Location_y);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x + loop, m_Location_y);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x - loop, m_Location_y + loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x, m_Location_y + loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x + loop, m_Location_y + loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
    }
    pt.m_x = m_Location_x;
    pt.m_y = m_Location_y;
    return pt;
}

References Landscape::CorrectCoordsPt(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, APoint::m_x, APoint::m_y, and Landscape::SupplyVegHeight().

Referenced by GiveBirth().

ReInit()

void Hare_Female::ReInit

(

struct_Hare

a_data

)

Female object reinitiation.

{
    m_Location_x = a_data.x;
    m_Location_y = a_data.y;
    m_OurLandscape = a_data.L;
    m_CurrentStateNo = 0;
    THareInit(a_data.x, a_data.y, a_data.HM);
    Init(a_data.weight, a_data.age, a_data.RefNum);
}

References struct_Hare::age, struct_Hare::HM, Init(), struct_Hare::L, TALMaSSObject::m_CurrentStateNo, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, struct_Hare::RefNum, THare::THareInit(), struct_Hare::weight, struct_Hare::x, and struct_Hare::y.

Referenced by THare_Population_Manager::CreateObjects().

SanityCheckYoungList()

bool Hare_Female::SanityCheckYoungList

(

)

Debug function.

Debug code for checking young lists.

{
  m_NoYoung= (int) m_MyYoung.size();
  unsigned int current=0;
  while (current < m_MyYoung.size())
  {
    if (m_MyYoung[current]->GetMum()!=this)
    {
      return false;
    }
    current++;
  }
  return true;
}

References THare::GetMum(), m_MyYoung, and m_NoYoung.

SetSterile()

void Hare_Female::SetSterile ( )

inline

Female is sterile.

{ m_sterile = true; }

References m_sterile.

Referenced by THare_Population_Manager::DoFirst().

st_Developing()

TTypeOfHareState Hare_Female::st_Developing ( )

protected

Female Developing.

{
  //Assumes that the fatReserve has been added to by st_Foraging from yesterday
  //
    // This is the last behaviour state called each day, so we can use this to sort out
    // the energetics
  //Assumes that the fatReserve has been added to by st_Foraging from yesterday
  //
 
    EnergyBalance(activity_Resting, 1440); // calculates the energy use by BMR
    if (m_TodaysEnergy<0) {
        m_fatReserve+=(m_TodaysEnergy * (1.0/42.7));
        m_TodaysEnergy=0;
    }
    // Grow
    // Solid food absorption is already taken into account by this time
    if (m_Age<365) 
    {
        double Target=m_OurPopulationManager->GetMaxDailyGrowthEnergyP(m_Age);
        if (m_TodaysEnergy<Target) Target=m_TodaysEnergy;
        double addedtoday=Target*m_OurPopulationManager->GetGrowthEfficiencyP(m_Age);
        m_weight+=addedtoday;
        m_TodaysEnergy-=Target;
        Target=m_OurPopulationManager->GetMaxDailyGrowthEnergyF(m_Age);
        if (m_TodaysEnergy<Target) Target=m_TodaysEnergy;
        addedtoday=Target*m_OurPopulationManager->GetGrowthEfficiencyF(m_Age);
        m_weight+=addedtoday;
        m_TodaysEnergy-=Target;
    } 
    else 
    {
        double Target=m_OurPopulationManager->GetMaxDailyGrowthEnergyF(m_Age);
        if (m_TodaysEnergy<Target) Target=m_TodaysEnergy;
        double gf=m_OurPopulationManager->GetGrowthEfficiencyF(m_Age);
        double addedtoday=Target*gf;
        m_weight+=addedtoday;
        m_TodaysEnergy-=Target;
    }
    if (m_TodaysEnergy>0) 
    {
        // Put what remains back into fat reserve
        m_fatReserve+=m_TodaysEnergy*m_OurPopulationManager->GetGrowthEfficiencyF(366); // 366 is the adult fat conversion efficiency
        m_TodaysEnergy=0;
        // Cap the fat reserve and store surplus energy for today
        if (m_fatReserve>(cfg_AdultMaxFat.value() * m_weight)) {
            m_fatReserve=cfg_AdultMaxFat.value() * m_weight;
        }
        m_StarvationDays=0; // Not starving
        return tohs_Foraging;
    }
    else {
            m_fatReserve+=m_TodaysEnergy*m_OurPopulationManager->GetGrowthEfficiencyF(366); // 366 is the adult fat conversion efficiency
            if (m_fatReserve<0) 
            {
                m_TodaysEnergy=m_fatReserve/m_OurPopulationManager->GetGrowthEfficiencyF(366);
                m_fatReserve=0.0;
            }
            else m_TodaysEnergy=0;
            // What should the criteria for a starvation day be?
            //double rmr=m_OurPopulationManager->GetRMR(m_Age, GetTotalWeight());
            //if (m_TodaysEnergy<(0.0-(rmr*0.25)))
            if (m_TodaysEnergy<0.0)
            {
                // Oh oh, we are starving need to lose body weight and maybe we will die?
#ifdef __ADULT_WT_STARVE_CHANCE
                int testval=0;
                if (m_Age<cfg_fixadult_starve.value()) {
                    // Somewhere between juvenile and adult so use in between values
                    int diff = cfg_adult_starve.value() - cfg_juv_starve.value();
                    testval=cfg_adult_starve.value()- (int)((1.0-((double)m_Age/cfg_fixadult_starve.value()))*diff);
 
                } else testval=cfg_adult_starve.value();
                if (++m_StarvationDays > cfg_adult_starvation_threshold.value()) {
                    if (random(10000)> testval) {
                        return tohs_Dying;
                    }
                }
    #ifdef __NOKNOCKONENERGYEFFECT
                else m_TodaysEnergy=0.0;
    #endif
#else
                if (++m_StarvationDays > cfg_adult_starvation_threshold.value()) {
                    return tohs_Dying;
                }
#endif
            }
            else {
                m_StarvationDays--; // Not starving
                if (m_StarvationDays<0) m_StarvationDays=0;
                m_TodaysEnergy=0;
            }
            // If we have kids then we expect this for a while, so only dispere if fat reserves are less than 0
            if (m_reproActivity!=activity_lactation || m_fatReserve<0) {
                            if (random(3)==0) return tohs_Dispersal; // We are hungry, we need to disperse
            }
    } // end if energy<0
    return tohs_Foraging;
}

References activity_lactation, activity_Resting, cfg_adult_starvation_threshold, cfg_adult_starve, cfg_AdultMaxFat, cfg_fixadult_starve, cfg_juv_starve, THare::EnergyBalance(), THare_Population_Manager::GetGrowthEfficiencyF(), THare_Population_Manager::GetGrowthEfficiencyP(), THare_Population_Manager::GetMaxDailyGrowthEnergyF(), THare_Population_Manager::GetMaxDailyGrowthEnergyP(), THare::m_Age, THare::m_fatReserve, THare::m_OurPopulationManager, m_reproActivity, THare::m_StarvationDays, THare::m_TodaysEnergy, THare::m_weight, random(), tohs_Dispersal, tohs_Dying, tohs_Foraging, CfgInt::value(), and CfgFloat::value().

Referenced by Step().

st_Dispersal()

TTypeOfHareState Hare_Female::st_Dispersal ( )

protectedvirtual

Female Dispersal.

Uses the base class st_dispersal but then adds some special female functionality.

Reimplemented from Hare_Juvenile.

{
    TTypeOfHareState tohs=Hare_Juvenile::st_Dispersal();
    if (tohs==tohs_Dying) return tohs_Dying;
    // If dispersal is called, then she must be deserting any young she has
    // The easiest way to do this is to lie, and tell them she is dead
    vector<THare*>::iterator current = m_MyYoung.begin();
    while (current != m_MyYoung.end()) {
        (*current)->ON_MumDead(this);
        current++;
    }
    // Now must clear the list.
    if (m_MyYoung.size()>=1) {
        m_MyYoung.erase(m_MyYoung.begin(),m_MyYoung.end()); // Remove all elements
        m_reproActivity=activity_oestrouscycle;
    }
    m_peg_x = m_Location_x;
    m_peg_y = m_Location_y;
    return tohs_Foraging;
}

References activity_oestrouscycle, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MyYoung, THare::m_peg_x, THare::m_peg_y, m_reproActivity, Hare_Juvenile::st_Dispersal(), tohs_Dying, and tohs_Foraging.

Referenced by Step().

st_Foraging()

TTypeOfHareState Hare_Female::st_Foraging ( )

protected

Female Foraging.

Effectively the day is started here, unless we have been dispersing.
At this point we have a whole day to use and need to figure out how to use it.
There are some constraints on the time we can use for foraging such that we need a certain amount of time for resting e.g. coprophagy. For now I am going to assume that the resting time required is proportional to forage time used and the ratio of the two is in cfg_ForageRestingRatio

Four different ways of implementing density dependence are selectable here.

{
   double time= (double) m_ActivityTime * cfg_ForageRestingRatio.value();
   // We need to rest if there is no more time
   if (time < 30 ) return tohs_Resting;
   // If there are more hares here then interference reduces the activity time
#ifdef __DELAYEDDD
   int hares=(m_OurPopulationManager->GetDelayedAdultDensity(m_Location_x, m_Location_y));
#else
   int hares=(m_OurPopulationManager->GetAdultDensity(m_Location_x, m_Location_y));
#endif
#ifdef __THRESHOLD_AD_DD
  if (hares<m_OurPopulationManager->m_HareThresholdDD) hares=0;
  else hares-=m_OurPopulationManager->m_HareThresholdDD;
#endif
#ifdef __DISEASEDDM2
    double inter=m_OurPopulationManager->GetInterference(m_lastYearsDensity);
#else
#ifdef __DISEASEDDM3
    double inter=m_OurPopulationManager->GetInterference(m_lastYearsDensity);
#else
#ifndef __DDEPMORT
  double inter=m_OurPopulationManager->GetInterference(hares);
#else
    #ifndef __DISEASEDDM
      double inter=m_OurPopulationManager->GetInterference(hares);
    #else
      double inter=1.0;
    #endif
#endif
#endif
#endif
    if ((inter<0.5) && (time > 300))
    {
        if (m_reproActivity!=activity_lactation) {  // Don't abandon kids just because others want to be here too
            if (g_rand_uni() > inter) // added to reduce rate of dispersal
            {
                //m_ActivityTime = (int)(time / cfg_ForageRestingRatio.value());
                return tohs_Dispersal; // Added Sat 15th Dec 2007
            }
        }
    }
   time*=inter;
   // Given the time we have then we need to feed, which will return an energy value obtained.
   int a_time = (int) time;
   if (cfg_hare_pesticideresponse_on.value())
   {
       m_TodaysEnergy = ForageP(a_time);
   }
   else
   {
       m_TodaysEnergy = Forage(a_time);
   }
   // We need to spend energy on foraging and associated movement - done in ForageSquare()
   //
   TimeBudget(activity_Foraging, (int)time-a_time);
   // Print the energy checking output
#ifdef __saveEnergyInfo
   dumpEnergy();
#endif
   return tohs_ReproBehaviour;
}

References activity_Foraging, activity_lactation, cfg_ForageRestingRatio, cfg_hare_pesticideresponse_on, dumpEnergy(), THare::Forage(), THare::ForageP(), g_rand_uni, THare_Population_Manager::GetAdultDensity(), THare_Population_Manager::GetDelayedAdultDensity(), THare_Population_Manager::GetInterference(), THare::m_ActivityTime, THare_Population_Manager::m_HareThresholdDD, THare::m_lastYearsDensity, TAnimal::m_Location_x, TAnimal::m_Location_y, THare::m_OurPopulationManager, m_reproActivity, THare::m_TodaysEnergy, THare::TimeBudget(), tohs_Dispersal, tohs_ReproBehaviour, tohs_Resting, CfgFloat::value(), and CfgBool::value().

Referenced by Step().

st_ReproBehaviour()

TTypeOfHareState Hare_Female::st_ReproBehaviour ( )

protected

Reproductive behaviour control.

A switch determining what repro behaviour to carry out.

Repro behaviour to consider:
1) Mating - either a function of her or the male - but lets keep it here so the male is a simple as possible.
2) Update Gestation.
3) Give Birth.
4) Lactation.
5) Getting resources for leveret production.
6) Determining leveret size and litter size?

Also optional mortality based upon reproductive mortality

{
   // First find out what kind of behaviour we are in:
#ifdef __REPROMORTCHANCE
         // Repromortchance is a function of size, the bigger you are the less chance of mortality
         int mc=0;
#endif
   switch(m_reproActivity)
   {
     case activity_oestrouscycle:
       UpdateOestrous();
       break;
     case activity_inoestrous:
       Mating();
       break;
     case activity_gestation:
       UpdateGestation();
       break;
     case activity_givebirth:
#ifdef __REPROMORTCHANCE
         // Repromortchance is a function of size, the bigger you are the less chance of mortality
         mc=random(100+(int)m_weight-cfg_hare_minimum_breeding_weight.value());
         if (mc<cfg_HareFemaleReproMortValue.value()) {
             return tohs_Dying;
         }
#endif
       GiveBirth();
       break;
     case activity_lactation:
       DoLactation();
       break;
     default:
       m_OurLandscape->Warn("Hare_Female::st_ReproBehaviour unknown activity"
                                                                         ,NULL);
       exit(1);
   }
   return tohs_Resting;
}

References activity_gestation, activity_givebirth, activity_inoestrous, activity_lactation, activity_oestrouscycle, cfg_hare_minimum_breeding_weight, cfg_HareFemaleReproMortValue, DoLactation(), GiveBirth(), TAnimal::m_OurLandscape, m_reproActivity, THare::m_weight, Mating(), random(), tohs_Dying, tohs_Resting, UpdateGestation(), UpdateOestrous(), CfgInt::value(), and Landscape::Warn().

Referenced by Step().

st_Resting()

TTypeOfHareState Hare_Female::st_Resting ( )

protected

Resting.

This method uses up the rest of the day in resting

{
   return tohs_Developing;
}

References tohs_Developing.

Referenced by Step().

Step()

void Hare_Female::Step ( void  )

virtual

Female Step.

Reimplemented from Hare_Juvenile.

{
  if (m_StepDone || m_CurrentStateNo == -1) return;
  switch (m_CurrentHState)
  {
   case tohs_InitialState: // Initial state
    m_CurrentHState=tohs_Foraging;
    break;
   case tohs_Dispersal:
    // Legal returns are:
    // tohs_Foraging
   // Dispersal is risky therefore take a test again
#ifdef __DISPERSALDDM
       if (g_rand_uni()<(cfg_hare_adult_predation.value())) {
        ON_Dead();
        m_StepDone=true; // We need to skip the step code, we are dead
        return;
    }
#endif
    m_CurrentHState=st_Dispersal();
    break;
   case tohs_Foraging:
   // Legal returns are:
   // tohs_ReproBehaviour
    m_CurrentHState=st_Foraging();
    break;
   case tohs_Resting:
    // Legal returns are:
    // tohs_Developing
    m_CurrentHState=st_Resting();
    break;
   case tohs_ReproBehaviour:
    // Legal returns are:
    // tohs_Resting (& possibly dying)
    m_CurrentHState=st_ReproBehaviour();
    break;
   case tohs_Developing:
    // Legal returns are:
    // tohs_Dying
    // tohs_Foraging
    // tohs_Dispersal
    m_CurrentHState=st_Developing();
    m_StepDone=true;
    break;
   case tohs_Dying:
    ON_Dead();
    m_StepDone=true;
    break;
   default:
   m_OurLandscape->Warn("Hare_Female::Step - unknown state",NULL);
    exit(1);
   }
}

References cfg_hare_adult_predation, g_rand_uni, THare::m_CurrentHState, TALMaSSObject::m_CurrentStateNo, TAnimal::m_OurLandscape, TALMaSSObject::m_StepDone, ON_Dead(), st_Developing(), st_Dispersal(), st_Foraging(), st_ReproBehaviour(), st_Resting(), tohs_Developing, tohs_Dispersal, tohs_Dying, tohs_Foraging, tohs_InitialState, tohs_ReproBehaviour, tohs_Resting, CfgFloat::value(), and Landscape::Warn().

UpdateGestation()

void Hare_Female::UpdateGestation ( )

protected

Update gestation counter.

Counts down gestation and grows foetal mass.

Figures out how much energy to use on growing the kids and add this to the m_LeveretMaterial
Some assumptions:
1) Foetal growth is linear, with a max per day
2) If the female's fat reserves fall below the hunger threshold value
she does not use energy on the foetus
3) maximum X% of the free energy is used on foetus production - this is an input variable.

{
    // Now are they ready to be born?
    if (--m_GestationCounter<1) {
        m_reproActivity=activity_givebirth;
    }
    // ALL the calcuations below are in g fat, this is just to save on unnecessary conversions
    // and divides later
    if (m_fatReserve>cfg_hare_adult_dispersal_threshold.value()) {
        double en=(m_fatReserve-cfg_hare_adult_dispersal_threshold.value())*cfg_hare_foetusenergyproportion.value();
        double fe=4*g_hare_maxFoetalKJ[m_GestationCounter];
        if (en>fe) en=fe;
        m_fatReserve-=en;
        m_LeveretMaterial+=en;
    }
}

References activity_givebirth, cfg_hare_adult_dispersal_threshold, cfg_hare_foetusenergyproportion, g_hare_maxFoetalKJ, THare::m_fatReserve, m_GestationCounter, m_LeveretMaterial, m_reproActivity, and CfgFloat::value().

Referenced by st_ReproBehaviour().

UpdateOestrous()

void Hare_Female::UpdateOestrous ( )

protected

Update oestrous counter.

Updates Oestrous if it is the breeding season.

Optional disease and minimum reproductive weight code for POM.

{
#ifdef __DISEASEDDM
    if (m_IamSick) {
        return; // will loop each day until not sick
    }
#endif
#ifdef  __MINREPWEIGHT
    if (m_weight<cfg_hare_minimum_breeding_weight.value()) return; // No breeding below this weight
#endif
 
    // No breeding outside the breeding season
    int today=m_OurLandscape->SupplyDayInYear();
    if ((today<cfg_ReproStartDay.value()) || (today>cfg_ReproEndDay.value()) )
    {
        m_OestrousCounter=0;
        m_litter_no=0;
        return;
    }
    if (++m_OestrousCounter>cfg_DaysToOestrous.value()) {
        // No breeding if in -ve energy balance
        if (cfg_hare_adult_breed_threshold.value()<=m_fatReserve) {
            m_reproActivity=activity_inoestrous;
            m_OestrousCounter=0;
      }
    }
}

References activity_inoestrous, cfg_DaysToOestrous, cfg_hare_adult_breed_threshold, cfg_hare_minimum_breeding_weight, cfg_ReproEndDay, cfg_ReproStartDay, THare::m_fatReserve, THare::m_IamSick, m_litter_no, m_OestrousCounter, TAnimal::m_OurLandscape, m_reproActivity, THare::m_weight, Landscape::SupplyDayInYear(), CfgInt::value(), and CfgFloat::value().

Referenced by st_ReproBehaviour().

UpdateYoung()

bool Hare_Female::UpdateYoung	(	THare *	a_old,
		THare *	a_new
	)

Swap a young list pointer.

This functions simply sorts through the m_Young vector and replaces the occurence of a_old with a_new. It is used to replace Hare_Infant pointers with Hare_Young pointers

{
vector<THare*>::iterator current = m_MyYoung.begin();
while (current != m_MyYoung.end())
{
  if (*current == a_old)
  {
    *current=a_new;
    return true;
  }
  current++;
}
return false;
}

References m_MyYoung.

Referenced by THare_Population_Manager::CreateObjects().

Member Data Documentation

m_GestationCounter

int Hare_Female::m_GestationCounter

protected

State variable - Days in gestation.

Referenced by GeneralEndocrineDisruptor(), Init(), Mating(), and UpdateGestation().

m_LeveretMaterial

double Hare_Female::m_LeveretMaterial

protected

State variable - Mass of foetal material.

Referenced by GiveBirth(), Init(), Mating(), and UpdateGestation().

m_litter_no

int Hare_Female::m_litter_no

protected

State variable - current litter number.

Referenced by GiveBirth(), Init(), and UpdateOestrous().

m_MyYoung

TListOfHares Hare_Female::m_MyYoung

protected

Pointer to litter.

Referenced by AddYoung(), DoLactation(), ON_AreYouMyMum(), ON_Dead(), ON_RemoveYoung(), ON_YoungKilled(), SanityCheckYoungList(), st_Dispersal(), and UpdateYoung().

m_NoYoung

int Hare_Female::m_NoYoung

protected

State variable - current litter size.

Referenced by AllYoungMatured(), ON_AreYouMyMum(), ON_RemoveYoung(), ON_YoungKilled(), and SanityCheckYoungList().

m_OestrousCounter

int Hare_Female::m_OestrousCounter

protected

State variable - Days in oestrous.

Referenced by AllYoungKilled(), AllYoungMatured(), GiveBirth(), Init(), and UpdateOestrous().

m_reproActivity

TTypeOfActivity Hare_Female::m_reproActivity

protected

State variable - current reproductive state.

Referenced by AllYoungKilled(), AllYoungMatured(), GiveBirth(), Init(), Mating(), st_Developing(), st_Dispersal(), st_Foraging(), st_ReproBehaviour(), UpdateGestation(), and UpdateOestrous().

m_sterile

bool Hare_Female::m_sterile

protected

State variable - is/not sterile.

Referenced by Init(), and SetSterile().

---

The documentation for this class was generated from the following files:

• /builds/a1mass/almass_stable_oddox/Hare/hare_all.h
• /builds/a1mass/almass_stable_oddox/Hare/Hare_all.cpp